﻿Public Class Usuarios

    Public Function Listar() As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuario As New Banco.DS.Usuarios
        lista = usuario.Listar
        Return lista
    End Function

    Sub Agregar(ByVal Usuarios As Banco.BE.Usuarios)
        Dim dsUsuarios As Banco.DS.Usuarios
        dsUsuarios = New Banco.DS.Usuarios
        dsUsuarios.Agregar(Usuarios)
    End Sub

    Function Obtener(ByVal id As Integer) As Banco.BE.Usuarios
        Dim dsMantinimiento As Banco.DS.Usuarios
        dsMantinimiento = New Banco.DS.Usuarios
        Return dsMantinimiento.Obtener(id)
    End Function

    Function Editar(ByVal mantenimiento As Banco.BE.Usuarios) As Boolean
        Dim dsMantinimiento As Banco.DS.Usuarios
        dsMantinimiento = New Banco.DS.Usuarios
        Return dsMantinimiento.Editar(mantenimiento)
    End Function

    Function EditarEstado(ByVal mantenimiento As Banco.BE.Usuarios) As Boolean
        Dim dsMantinimiento As Banco.DS.Usuarios
        dsMantinimiento = New Banco.DS.Usuarios
        Return dsMantinimiento.EditarEstado(mantenimiento)
    End Function

    Public Function Activos() As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuario As New Banco.DS.Usuarios
        lista = usuario.Activos
        Return lista
    End Function

    Public Function Inactivos() As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuario As New Banco.DS.Usuarios
        lista = usuario.Inactivos
        Return lista
    End Function

    Function Filtrar(ByVal mantenimiento As Banco.BE.Usuarios) As List(Of Banco.BE.Usuarios)
        Dim dsMantenimiento As Banco.DS.Usuarios
        dsMantenimiento = New Banco.DS.Usuarios
        Return dsMantenimiento.Filtrar(mantenimiento)
    End Function

    Function FiltrarNombre(ByVal mantenimiento As Banco.BE.Usuarios) As List(Of Banco.BE.Usuarios)
        Dim dsMantenimiento As Banco.DS.Usuarios
        dsMantenimiento = New Banco.DS.Usuarios
        Return dsMantenimiento.FiltrarNombre(mantenimiento)
    End Function


End Class
